object RozvozBus: TRozvozBus Left = 45 Top = 282 Width = 1118 Height = 704 VertScrollBar.Position = 14 Caption = 'Bus rozvoz' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Scaled = False PixelsPerInch = 96 TextHeight = 13 object QuickRep1: TQuickRep Left = 8 Top = -6 Width = 1123 Height = 794 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False DataSet = ADODataSet1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Functions.Strings = ( 'PAGENUMBER' 'COLUMNNUMBER' 'REPORTTITLE' 'QRSTRINGSBAND1') Functions.DATA = ( '0' '0' #39#39 #39#39) Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poLandscape Page.PaperSize = A4 Page.Values = ( 100.000000000000000000 2100.000000000000000000 100.000000000000000000 2970.000000000000000000 100.000000000000000000 100.000000000000000000 0.000000000000000000) PrinterSettings.Copies = 1 PrinterSettings.Duplex = False PrinterSettings.FirstPage = 0 PrinterSettings.LastPage = 0 PrinterSettings.OutputBin = Auto PrintIfEmpty = True ReportTitle = 'Rozvozov� list' SnapToGrid = True Units = MM Zoom = 100 object PageFooterBand1: TQRBand Left = 38 Top = 215 Width = 1047 Height = 32 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 84.666666666666670000 2770.187500000000000000) BandType = rbPageFooter object QRExpr1: TQRExpr Left = 918 Top = 9 Width = 113 Height = 15 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 39.687500000000000000 2428.875000000000000000 23.812500000000000000 298.979166666667000000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = #39'Strana '#39' + PageNumber' FontSize = 8 end object QRLabel6: TQRLabel Left = 16 Top = 8 Width = 260 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 42.333333333333300000 21.166666666666700000 687.916666666667000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Vyti�t�no programem Dispatcher 3, HI Software s.r.o.' Color = clWhite Transparent = False WordWrap = True FontSize = 8 end end object QRGroup1: TQRGroup Left = 38 Top = 57 Width = 1047 Height = 96 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = True Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = True Size.Values = ( 254.000000000000000000 2770.187500000000000000) Expression = 'ADODataSet1.Naz_Trasy' FooterBand = QRBand5 Master = QuickRep1 ReprintOnNewPage = True object QRLabel7: TQRLabel Left = 187 Top = 40 Width = 110 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 494.770833333333000000 105.833333333333000000 291.041666666667000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '��slo z�jezdu:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 12 end object QRDBText1: TQRDBText Left = 307 Top = 39 Width = 100 Height = 23 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 60.854166666666700000 812.270833333333000000 103.187500000000000000 264.583333333333000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'Naz_Trasy' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 14 end object QRLabel1: TQRLabel Left = 675 Top = 40 Width = 57 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 1785.937500000000000000 105.833333333333000000 150.812500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Datum:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 12 end object QRDBText2: TQRDBText Left = 747 Top = 40 Width = 112 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 1976.437500000000000000 105.833333333333000000 296.333333333333000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'datumrozvozu' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 12 end object QRLabel14: TQRLabel Left = 8 Top = 56 Width = 65 Height = 39 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 103.187500000000000000 21.166666666666700000 148.166666666667000000 171.979166666667000000) Alignment = taCenter AlignToBand = False AutoSize = False AutoStretch = False Caption = 'Po�adov� ��slo' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel17: TQRLabel Left = 100 Top = 56 Width = 53 Height = 39 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 103.187500000000000000 264.583333333333000000 148.166666666667000000 140.229166666667000000) Alignment = taCenter AlignToBand = False AutoSize = False AutoStretch = False Caption = '�as odjezdu' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel15: TQRLabel Left = 176 Top = 75 Width = 34 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 465.666666666667000000 198.437500000000000000 89.958333333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Obec' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel18: TQRLabel Left = 616 Top = 75 Width = 28 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 1629.833333333330000000 198.437500000000000000 74.083333333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'PS�' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel19: TQRLabel Left = 400 Top = 75 Width = 98 Height = 20 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 52.916666666666700000 1058.333333333330000000 198.437500000000000000 259.291666666667000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'N�zev zast�vky' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel3: TQRLabel Left = 672 Top = 77 Width = 36 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 1778.000000000000000000 203.729166666667000000 95.250000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Po�ta' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel4: TQRLabel Left = 888 Top = 77 Width = 80 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 2349.500000000000000000 203.729166666667000000 211.666666666667000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Po�et let�k�' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel8: TQRLabel Left = 992 Top = 77 Width = 44 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 2624.666666666670000000 203.729166666667000000 116.416666666667000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'P�smo' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel5: TQRLabel Left = 24 Top = 0 Width = 54 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 63.500000000000000000 0.000000000000000000 142.875000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = '[:Firma:]' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRLabel2: TQRLabel Left = 760 Top = 0 Width = 257 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 2010.833333333330000000 0.000000000000000000 679.979166666667000000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False BiDiMode = bdLeftToRight ParentBiDiMode = False Caption = 'Z�jezdn� list' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRShape2: TQRShape Left = 8 Top = 24 Width = 1017 Height = 3 Frame.Color = clNavy Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Frame.Width = 5 Size.Values = ( 7.937500000000000000 21.166666666666700000 63.500000000000000000 2690.812500000000000000) Brush.Color = clBlue Pen.Color = clNavy Shape = qrsRectangle end end object QRBand2: TQRBand Left = 38 Top = 38 Width = 1047 Height = 19 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 50.270833333333330000 2770.187500000000000000) BandType = rbTitle end object QRBand3: TQRBand Left = 38 Top = 153 Width = 1047 Height = 26 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 68.791666666666670000 2770.187500000000000000) BandType = rbDetail object QRExpr3: TQRExpr Left = 104 Top = 7 Width = 169 Height = 15 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 39.687500000000000000 275.166666666667000000 18.520833333333300000 447.145833333333000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'COPY(ADODataSet1.timedo,11,20)' FontSize = 8 end object QRDBText3: TQRDBText Left = 30 Top = 5 Width = 27 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 79.375000000000000000 13.229166666666700000 71.437500000000000000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'pozn' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRDBText5: TQRDBText Left = 176 Top = 5 Width = 34 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 465.666666666667000000 13.229166666666700000 89.958333333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'Mesto' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRDBText6: TQRDBText Left = 400 Top = 5 Width = 29 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1058.333333333330000000 13.229166666666700000 76.729166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'Ulice' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRDBText7: TQRDBText Left = 608 Top = 5 Width = 26 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1608.666666666670000000 13.229166666666700000 68.791666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'PSC' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRDBText8: TQRDBText Left = 672 Top = 5 Width = 33 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 1778.000000000000000000 13.229166666666700000 87.312500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'Firma' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRDBText10: TQRDBText Left = 1000 Top = 5 Width = 40 Height = 18 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 47.625000000000000000 2645.833333333330000000 13.229166666666700000 105.833333333333000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = ADODataSet1 DataField = 'pasmo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] ParentFont = False Transparent = False WordWrap = True FontSize = 9 end object QRExpr4: TQRExpr Left = 848 Top = 6 Width = 118 Height = 16 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 42.333333333333300000 2243.666666666670000000 15.875000000000000000 312.208333333333000000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Arial' Font.Style = [] Color = clWhite ParentFont = False ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'ADODataSet1.g/1000' FontSize = 9 end end object QRBand5: TQRBand Left = 38 Top = 179 Width = 1047 Height = 36 Frame.Color = clBlack Frame.DrawTop = True Frame.DrawBottom = True Frame.DrawLeft = True Frame.DrawRight = True AlignToBottom = False Color = clWhite ForceNewColumn = False ForceNewPage = False Size.Values = ( 95.250000000000000000 2770.187500000000000000) BandType = rbGroupFooter object QRLabel9: TQRLabel Left = 696 Top = 8 Width = 96 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 1841.500000000000000000 21.166666666666700000 254.000000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Celkem let�k�:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRExpr2: TQRExpr Left = 793 Top = 8 Width = 167 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666700000 2098.145833333330000000 21.166666666666700000 441.854166666667000000) Alignment = taRightJustify AlignToBand = False AutoSize = True AutoStretch = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] Color = clWhite ParentFont = False ResetAfterPrint = True Transparent = False WordWrap = True Expression = 'SUM(ADODataSet1.g)/1000' FontSize = 10 end end end object ADODataSet1: TADODataSet CursorType = ctStatic CommandText = 'select rozvoz.klic as rozvozklic, rozvoz.nazev as jmenorozvozu, ' + 'rozvoz.datvyt as datumrozvozu,roztrasy.klic as roztrasyklic, roz' + 'trasy.name as naz_trasy, rozstop.klic as rozstopklic, rozstop.i' + 'drozvoz, rozstop.psc, rozstop.g, rozstop.firma, rozstop.timedo, ' + 'rozstop.name as mesto, rozstop.ulice, rozstop.pozn, rozstop.pa' + 'smo, rozstop.idtrasa from rozvoz, roztrasy, rozstop'#13#10#9'where (roz' + 'voz.klic = 7) and (roztrasy.idrozvoz = rozvoz.klic) and (roztras' + 'y.klic = rozstop.idtrasa)'#13#10' order by roztrasy.kli' + 'c, rozstop.klic;' Parameters = <> Left = 32 Top = 8 end object DataSource3: TDataSource DataSet = ADODataSet1 Left = 64 Top = 8 end end